Imports System.ComponentModel

Public Class Attachments
	Inherits CollectionWrapperBase

	<Description("Kontruktor.")> _
	Friend Sub New(<Description("Nativni (COM+) objekt kolekce.")> ByVal nativeWorkbooks As Object, ByVal rootObject As RootObjectWrapperBase)
		MyBase.New(nativeWorkbooks, rootObject)
	End Sub

	Protected Overrides Function WrapItem(ByVal nativeItem As Object) As IWrapper
		Return New Attachment(nativeItem, Me.RootObject)
	End Function

	Public Function Add(ByVal filePath As String) As Attachment
		Dim item As Object = Me.WrappedObject.Add(filePath)
		Dim result As Attachment = Me.WrapItem(item)

		Return result
	End Function
End Class
